1 FORI=1TO31:LN$=LN$+"[192]":LS$=LS$+" ":NEXT
2 LR$=LEFT$(LS$,31):LA$=LEFT$(LN$,31)
3 RD$="[144] "
4 UR$(1)="[176]"+LA$+"[174]":UR$(2)="[221]"+LEFT$(LS$,31)+"[221]"
5 UR$(3)="[173]"+LEFT$(LN$,31)+"[189]"
100 GOSUB620:RE%=0
110 PRINTCHR$(14)
120 SP%=1:TR%=DI%:OPEN15,8,15,"I0
130 [159]8,8,2,"#2":FI%[178]0
140 [152]15,"U1:"2;0;TR%;SP%:[141]560
150 [129]I[178]0[164]1:[161]#8,A$:[141]530:P%(I)[178][198](A$):[130]:A[178]2:[141]550
160 [161]#8,A$:[141]530:A[178][198](A$)[175]7
170 H$[178]"":[129]I[178]0[164]1:[161]#8,A$:[141]530:L%(I)[178][198](A$):[130]
180 [129]I[178]3[164]18:[161]#8,A$:H$[178]H$[170]A$:[130]
190 [139]H$[178]""[167]210
191 [141]1200:[141]1100
192 [151]214,17:[151]211,2:[158]58640
200 [153]""KI$(A);" ";H$;:[139]A[178]0[167][137]380
210 FI%[178]FI%[170]1:[139]FI%[179]8[167]A[178]FI%[172]32[170]2:[141]550:[137]160
220 [139]P%(0)[178]0[167]240
230 TR%[178]P%(0):SP%[178]P%(1):FI%[178]0:[137]140
240 [160]8:[139]RE%[167][141]1200:[153][163]1)"DEFPEEKATN(null) AKTUALISIEREN ((null)ALIDATE)"
245 [152]15,"V
250 GOSUB560:CLOSE15
252 GOSUB1300
254 PRINTTAB(14)"[154][215]EITERE [196]ISKETTE"
255 PRINTTAB(14)"[154]BEARBEITEN? (J/N)[144]"
256 GETT$:IFT$="J"THENRUN
257 IFT$="N"THENPRINT"[147]":POKE198,0:END
258 GOTO256
260 REM FILE ZURUECKHOLEN
270 PRINT#15,"U1:"2;0;L%(0);L%(1):RETURN
280 D%=2
290 GOSUB270:FORI=0TO1:GET#8,A$:GOSUB530:Z%(I)=ASC(A$):NEXT
310 IFZ%(0)=0THENRETURN
320 PRINT#15,"B-F"0;Z%(0);Z%(1):L%(0)=Z%(0):L%(1)=Z%(1):Z%(D%)=Z%(0)
330 Z%(D%+1)=Z%(1):D%=D%+2
340 IFDS=0THEN290
350 GOSUB1200:PRINTTAB(1)"[150][198]ILE WURDE UEBERSCHRIEBEN!":X%=NOT(X%):A=FI%*32+2
360 FORI=2TOD%-4STEP2:PRINT#15,"B-F:"0;Z%(I);Z%(I+1):NEXT
370 L%(0)=TR%:L%(1)=SP%:GOSUB270:GOTO550
380 GOSUB1200
384 PRINTTAB(1)"[150][211]EKTOREN WIEDERVERBINDEN? (J/N)"
385 GETA$
386 IFA$="J"THEN400
390 IFA$="N"THEN210
391 GOTO385
400 X%=0:GOSUB1200:PRINTTAB(1)"[150][198]ILE WIEDERHERSTELLEN..."
402 Z%(0)=L%(0):GOSUB280:IFX%THEN210
403 GOSUB1300
405 PRINTTAB(14)"[154][196]ATEITYP FESTLEGEN!"
406 PRINTTAB(14)"<[208]>[210][199] ([208]ROGRAMM)"
407 PRINTTAB(14)"<[211]>[197][209] (SEQUENTIELL)"
408 PRINTTAB(14)"<[213]>[211][210] ([213]SER-[196]ATEI)"
409 PRINTTAB(14)"<[210]>[197][204] (RELATIV)[144]"
430 GETJA$:IFJA$<>"P"ANDJA$<>"S"ANDJA$<>"U"ANDJA$<>"R"THEN430
440 PRINT:IFJA$="P"THENGOSUB1300:PRINTTAB(14)"[154][208]ROGRAMM-":KI%=130:GOTO480
450 IFJA$="U"THENGOSUB1200:PRINTTAB(14)"[154][213]SER-":KI%=131:GOTO480
460 IFJA$="R"THENGOSUB1200:PRINTTAB(14)"[154][210]ELATIVE":KI%=132:GOTO480
470 GOSUB1200:PRINTTAB(14)"[154][211]EQUENTIELLE":KI%=129
480 PRINTTAB(14)"[154][196]ATEI REAKTIVIEREN."
490 L%(0)=TR%:L%(1)=SP%:GOSUB270
500 A=FI%*32+2:GOSUB550:PRINT#8,CHR$(KI%);
510 BL%=((D%-2)/2)+1:PRINTTAB(14)"[154]"BL%"[194]LOCKS"
520 PRINT#15,"U2:"2;0;TR%;SP%:PRINTTAB(14)"[154]WIEDER BELEGT!":RE%=1:GOTO210
530 IFA$=""THENA$=CHR$(0)
540 RETURN
550 PRINT#15,"B-P:"2;A
560 INPUT#15,EN%,EM$,ET%,ES%:IFEN%=0THENRETURN
570 PRINT"[147][144][196][201][211][203] [197][210][210][207][210][146]
580 [153]"ASCEHLERWAIT: "EN%" "EM$","ET%","ES%
590 [153]"'LEN(null)(null)(null)' EINGEBEN!"
600 [128]
610 [142]
620 [134]P%(1),L%(1),Z%(300),KI$(4):CO$[178][199](34):[151]53280,1:[151]53281,1:
621 [151]646,5:[153]"LOAD"
630 [129]I[178]0[164]4:[135]KI$(I):[130]
640 [131]"STR$VAL(null)","(null)VAL(null)","(null)(null)CHR$","(null)(null)(null)","(null)VAL(null)"
650 [141]1000
745 [161]TD$:[139]TD$[179][177][199](13)[167]745
750 DI%[178]18:[142]
1000 [153]UR$(1)
1002 [129]I[178]1[164]12:[153]UR$(2)[170]RD$[170]"":[130]
1004 [153]UR$(3)[170]RD$
1006 [153][163]2)""LS$[170]RD$
1010 [151]214,2:[151]211,10:[158]58640
1012 [153]"ASCRIGHT$(null)VAL (null)VAL(null)RIGHT$(null)ATN(null)"
1014 [153][163]3)"FUER ASCLOPPY 1541/1570/1571"
1016 [153][163]2)"STELLT MIT (null)LEN(null)ATN(null)LENLEFT$ GELOESCHTE"
1018 [153][163]2)"STR$ATEIEN AUF STR$ISKETTE IM"
1020 [153][163]2)"(null)RIGINALZUSTAND WIEDER HER."
1022 [153][163]2)"ATNLENLEFT$(null)(null)(null)CHR$! VALS DUERFEN VORHER"
1024 [153][163]2)"KEINE NEUEN STR$ATEIEN AUF DIE"
1026 [153][163]2)"STR$ISKETTE GESPEICHERT WERDEN!"
1028 [153][163]2)"STR$ISK EINLEGEN, DANN <(null)VAL(null)(null)(null)(null)>"
1099 [142]
1100 [151]214,16:[151]211,0:[158]58640
1101 [151]646,6:[153]UR$(1)
1102 [153]UR$(2)[170]RD$[170]""
1104 [153]UR$(3)[170]RD$
1106 [153][163]2)""LS$[170]RD$
1108 [142]
1200 [151]214,20:[151]211,0:[158]58640
1201 [151]646,10:[153]UR$(1)
1202 [153]UR$(2)[170]RD$[170]"DEF"
1204 [153]UR$(3)[170]RD$
1206 [153][163]2)""LS$[170]RD$
1209 [151]214,21:[151]211,0:[158]58640
1210 [142]
1300 [151]214,3:[151]211,13:[158]58640
1301 [151]646,14:[153][200](UR$(1),20)[170][201](UR$(1),3)
1302 [129]I[178]1[164]7:[153][163]13)[200](UR$(2),20)[170][201](UR$(2),3)[170]RD$[170]"CONT":[130]
1304 [153][163]13)[200](UR$(3),20)[170][201](UR$(3),3)[170]RD$
1306 [153][163]15)""[170][200](LS$,20)[170]RD$
1309 [151]214,4:[151]211,14:[158]58640
1310 [142]